home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 1995 September 1 / CD [VMAG950901].bin / vmagcd / taiken / uru_demo / director / shared.dir / 00652.ls < prev    next >
Encoding:
Text File  |  1995-07-04  |  632 b   |  25 lines
  1. on scplayaif pchan, pfilename, pvolume
  2.   global gmactype, gnowsound
  3.   if getext_infilename(pfilename) = EMPTY then
  4.     set pfilename to pfilename & ".AIF"
  5.   end if
  6.   if gmactype = "win" then
  7.     if gnowsound = 0 then
  8.       set fileName to "@::" & "MAT:" & pfilename
  9.     else
  10.       set fileName to "@::" & "MAT:" & pfilename
  11.     end if
  12.   else
  13.     if gnowsound = 0 then
  14.       set fileName to "@::" & "MAT:" & pfilename
  15.     else
  16.       set fileName to "@::" & "MAT:" & pfilename
  17.     end if
  18.   end if
  19.   sound playFile pchan, fileName
  20.   if voidp(pvolume) then
  21.     set pvolume to 255
  22.   end if
  23.   set the volume of sound pchan to pvolume
  24. end
  25.